<p> Utilities </p>

2a1d21d6-e79f-4991-88c3-47adcf9f7123 80 6 9 decimal

&[DATE] &[TIME] - &[FILENAME]

<p> Utilities </p>

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

Mesh U, V  within the bounds L, H L H N xd N intervals U 0 : dx H L - N / : i 1 N 1 + range U i el L dx i * dx - (+ : for U 51 line :

The contour extractor , pair wise in X direction M ε cntr CONTR count 1 : i 1 M rows range j 1 M cols range M i j el cntr - abs ε ≤ u count el i : v count el j : 21 line count count 1 + : if for for u v augment 31 line :

data Strip2 nest striped in 'R' u data 1 col : v data 2 col : k 0 : i 1 data rows range u i el v i el * 0 ≠ R k k 1 + : el u i el v i el 12 mat : 11 line Undefined if 11 line for 21 line Un-nest R v R 1 el : j 2 R rows range v v R j el stack : for v 81 line :

Generate the symmetric square matrix x y f U V Sym r 1 : i 1 U rows range c 1 : j 1 V rows range M r c el U i el V j el f eval : c c 1 + : 21 line for r r 1 + : 31 line for M 31 line :

Contour level extract

This document demonstrates how to extract the points of a plane cutting a surface matrix. The program sorts the points in the X direction in ascending order and 'pair wise' or 'uniquely' in the Y direction depending upon the cutting path. The 'Q' data pairs is a huge vector(2) filled of 0's, that you must strip for convenient export. The main idea behind the contour extractor is two fold: 1. Observe/visualize the level path of an 'Engineering surface' you may have obtained from sampled data [a square matrix]. 2. From functions that have no symbolic level solution(s), but from which functions you can generate a square matrix.

L 1 - :

H 1 :

N 100 :

t0 1 time :

U L H N xd :

V U :

x y f 1 x 2^y 2^+ (- 0.25 / exp * :

M x y f U V Sym eval :

M min M max 21 mat 0.000335 121 mat ≡

ε 0.00125 :

level 0.25 :

Q M ε level CONTR :

XY Q Strip2 : Export the project ≡

Re-center the system XY XY 1 col N 2 / - XY 2 col N 2 / - . 8 blue plotG :

X XY 1 col :

Y XY 2 col :

c 00 + 100 red 15 mat :

Export X Y augment :

1 time t0 - 127 sec *

XY c 2 1 sys